EnigmA Amiga Run 1996 February/EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso/earcd/editor/xes.lha/XES/S/keys.xrc

Text File | 1995-08-14 | 7KB | 173 lines

# $VER: keys.xrc 1.0 (14 Aug 1995)
map (a- ) (firstnb insline)
map (A- ) (firstnb inslines 3 down)
map A-! (x-1 goto start while cb (if !t (firstnb if !l (insline down)) downadd))
map a-. (first while !r (firstnb split first join ( **> ) downadd))
map a-/ (first while !r (firstnb split first join ( // ) downadd))
map a-0 (setparcol 0 title `Left Margin set to 0')
map a-; (first while !r (firstnb split first join ( ::> ) downadd))
map a-= (setparcol -1 settvar indcol 0 title `Left Margin set to -1, Indent Column set to 0')
map A-a (block-type? if !6 (if !5 lineblock bappendsave \$clipfile unblock))
map a-a (rx "C='insert' d2c(rtgetlong(,'Enter ASCII value.','Insert ASCII Requester',,'rtgl_min=0 rtgl_max=255')); C")
map ac-a (rx "C='insert' c2d(rtgetstring(,'Enter Letter')); C")
map a-b block-region
map a-bs (ifelse l (up last join col +1) (setx dec x first string (\\\$x) delstr (\\\$string)))
map A-c (block-type? if !6 (if !5 lineblock bsave \$clipfile unblock))
map a-c (while !ca (right if r (left break)) tlate u right a-l)
map a-d (while r (down firstnb) setx while !ca (right if c=32 break if r break) while ca (col +1) minus len \$colno \$x gox string \$len delstr (\$string))
map a-del (ifelse r join (scanf l delstr (\\\$scanf)))
map a-down (sc-2 bottom last)
map A-f1 (pong 1)
map A-f2 (pong 2)
map A-f3 (pong 3)
map a-f3 (writeto `T:Temp' execute (AlphaSpell >ENV:titlebar N T:Temp) title (\$titlebar))
map A-f4 (pong 4)
map A-f5 (pong 5)
map A-f6 (pong 6)
map A-f7 (pong 7)
map a-h (first while !r down cs-2 up first while !r up down)
map a-l (while !ca (right if r (left break)) while ca (tlate l right))
map a-left  (firstnb)
map a-n (ifelse \$wholeword (wsearch next) next)
map a-nk. (first deline)
map a-nk0 (split down undeline up join join)
map a-nk2 (deline downadd undeline)
map a-nk4 (wleft a-t)
map a-nk6 (a-t wright)
map a-nk8 (deline up undeline)
map a-p (ifelse \$wholeword (wsearch prev) prev)
map a-r (if c="\$findstr" replace)
map a-right (last)
map a-t (pushvar findstr pushvar repstr scanf +b repstr (\$scanf) wright scanf +b findstr (\$scanf) replace repstr (\$scanf) scanf +b findstr (\$scanf) prevr popvar findstr popvar repstr)
map a-tab (ifelse cb (indent b .t) (indent . .t) firstnb)
map a-u (while !ca (right if r (left break)) while ca (tlate u right))
map a-up (sc-2 first top)
map A-v (eval (insfile \$clipfile))
map a-w (blocktype character block-region cx-x copy unblock)
map A-w (wordwrap toggle)
map A-x (block-type? if !6 (if !5 lineblock bsave \$clipfile bdelete))
map a-z (undeline)
map a-[ (ifelse l a-0 sa-[)
map a-] (margin (\$colno) title `Right Margin set to \$colno')
map As-, (push block)
map As-. (pop block)
map as-8 (insline first insert (/*) down while !r (firstnb split first join ( * ) reformat downadd) insline first insert ( */))
map as-e (execute (\$currentline))
map bs (ifelse l (up last ifelse l (join del) (join col +1)) bs)
map c-1 (settvar indcol \$colno title (Indent Column set to \$colno))
map c-2 (title (\$date, \$time))
map c-a first
map c-c (qualifier \$ccq)
map c-down scrolldown
map c-e last
map c-f (scanf %[a-zA-Z] findstr (\$scanf) title \$findstr)
map c-f4 (title `Change Filename' escimm (chfilename `\$filename))
map c-k a-del
map c-l (sc-l ifelse c>24 top bottom goto \$L redisplay)
map c-left scrollleft
map c-o split
map c-q (qualifier MA title (Quote key))
map c-r (scanf %s repstr (\$scanf) title \$repstr)
map c-right scrollright
map c-s (ifelse cb (blocktype line) lineblock bsource)
map c-spc cs-2
map c-t (scanf c set c0 (\$scanf) goleft scanf c overwrite (\$c0) ifelse r (if !b (down first del)) (overwrite (\$scanf)))
map c-tab (repeat tr (( )))
map c-up scrollup
map c-w (blocktype character block-region copy delete-region unblock sc-2)
map c-x (title `C-X ...' qualifier x)
map c-y (sc-2 clipins -bs)
map ca-o (if !r (ping 0 firstnb wright split return while !r (firstnb split first join return) pong 0 down while !r (insline join down) pong 0 down reformat firstnb split first join pong 0 join))
map cMx-g nop
map cRx-g nop
map cs-2 (mark-point mx my title (Mark Set))
map cx-b (barpsave)
map cx-c QuitAll
map cx-f (escimm (find-file ))
map cx-g nop
map cx-l (region-top while y<\$my (tlate l goright) while x<\$mx (tlate l goright))
map cx-o (first while r up down bstart while r down up bend bdelete)
map cx-s (rx XES:Rexx/SaveFile)
map cx-u (region-top while y<\$my (tlate u goright) while x<\$mx (tlate u goright))
map cx-w (rx1 XES:Rexx/FileOp Saveas)
map cx-x (mark-point tx ty goto-mark settvar mx \$tx settvar my \$ty)
map del (ifelse r (if !b (last ifelse l (join del) join)) del)
map down (down if \$smartkeys (if r last))
map f9 arpsave
map help (newwindow newfile XES:S/xes.xrc programming-mode)
map L-lm2 (if cb unblock)
map L-lmb (tomouse flag 2 1)
map L-mmove (if 2 (bstart flag 2 0) tomouse bend)
map left (ifelse \$smartkeys goleft left)
map Mx-a amigaguide-mode
map Mx-b (blocktype line)
map Mx-c c-mode
map Mx-f fundamental-mode
map Mx-h html-mode
map Mx-k krc-mode
map Mx-l lisp-mode
map Mx-m manual-mode
map Mx-n (blocktype character)
map Mx-o outline-mode
map Mx-p programming-mode
map Mx-r arexx-mode
map Mx-s symlog-mode
map Mx-t text-mode
map Mx-v (blocktype vertical)
map return (\$cr)
map right (ifelse \$smartkeys goright right)
map Rx-c copy-rectangle
map Rx-d delete-rectangle
map Rx-e clear-rectangle
map Rx-k kill-rectangle
map Rx-o open-rectangle
map Rx-y yank-rectangle
map s-bs (setx sety wleft if y<\$y (last setx wleft) minus len \$x \$colno string \$len delstr (\$string))
map s-del (setx sety wright if y>\$y (goy last) ifelse x>\$x (minus len \$colno \$x) (set len 0) gox string \$len delstr (\$string))
map s-down (pagedown)
map s-f1 (ping 1)
map s-f2 (ping 2)
map s-f3 (ping 3)
map s-f4 (ping 4)
map s-f5 (ping 5)
map s-f6 (ping 6)
map s-f7 (ping 7)
map s-help (newwindow newfile s:startup-sequence programming-mode)
map s-left (wleft)
map s-nk0 (insert (\$lastdel))
map s-right (wright)
map s-tab (\$btab)
map s-up (pageup)
map s-] (\$rbrace)
map sa-tab (ifelse cb (indent b -.t) (indent . -.t) firstnb)
map sa-[ (left ifelse x<\$margin (setparcol \$colno title `Left Margin Set To \$colno') (title (Can't Set Left Margin To \$colno. The Right Margin is \$margin.)) col +1)
map sc-c (set C (\$colno))
map sc-l (set L (\$lineno))
map sc-tab (repeat tl bs)
map spc (ifelse \$viewmode pagedown (( )))
map sx-] ((}))
map tab (\$ftab)
map up (up if \$smartkeys (if r last))
map x-/ (select-register (Store Position in Register) eval (settvar R\$reqresult (\$pos)))
map x-1 (goto start first while cb (if r deline if !r downadd))
map x-2 (x-1 goto start while cb (down if cb (insline down)))
map x-b gtb-windows
map x-d (rx XES:Rexx/Diary text-mode)
map x-e (recplay qualifier ())
map x-g (select-register (Insert Contents of Register) eval (insfile t:\$(R\$reqresult)))
map x-h (bottom last cs-2 top first)
map x-i (arpinsfile)
map x-j (select-register (Goto Position in Register) eval (spc pos \$(R\$reqresult)))
map x-k (rx XES:Rexx/Quit)
map x-m (qualifier Mx title (Select Mode))
map x-o (select next)
map x-r (qualifier Rx title (C-X-R- ...))
map x-x (select-register (Copy Block to Register) eval (bsave t:\$(R\$reqresult))
map xa-f (down firstnb ifelse r (a-= up) (a-[ up join) reformat)
map xs-0 (force r recend)
map xs-9 (recstart)
map xy-1 (top while !b (block¶ x-1 down))
map xy-2 (goto start while cb (block§ x-2 down pop block))
map xy-2 (top while !b (block§ x-2 down))
map xy-d (x-distance? y-distance?)